(deftemplate Elev
    (slot nume)
    (slot medie-mate)
    (slot medie-info)
    (slot medie-romana)
    (slot medie-fizica)   
    (slot medie-chimie) 
    (slot medie-sport) 
    (slot medie-engleza)
    
    )
(assert (Elev(nume Pop)(medie-mate 8)(medie-info 6)(medie-romana 9)(medie-fizica 9)(medie-chimie 9)(medie-sport 10)(medie-engleza 9)))
(assert (Elev(nume Ion)(medie-mate 10)(medie-info 9)(medie-romana 9)(medie-fizica 9)(medie-chimie 8)(medie-sport 10)(medie-engleza 8)))
(assert (Elev(nume Maria)(medie-mate 10)(medie-info 10)(medie-romana 10)(medie-fizica 10)(medie-chimie 10)(medie-sport 10)(medie-engleza 9)))
(assert (Elev(nume Voica)(medie-mate 8)(medie-info 9)(medie-romana 10)(medie-fizica 7)(medie-chimie 8)(medie-sport 9)(medie-engleza 8)))
(assert (Elev(nume Popescu)(medie-mate 7)(medie-info 8)(medie-romana 5)(medie-fizica 5)(medie-chimie 8)(medie-sport 9)(medie-engleza 5)))

(facts)
(run)

(printout t "--------------------------------------------" crlf)
(defrule MI
   (Elev (nume ?n)(medie-mate ?mm)(medie-info ?mi )(medie-fizica ?mf))
        (test (and(>= ?mm 8)(>= ?mi 8)(>= ?mf 8)))
 
=>
(printout t "Elevul " ?n " se poate inscrie la fac de MI! " crlf)
)

(run)
(printout t "--------------------------------------------" crlf)
(defrule Chimie
   (Elev (nume ?n)(medie-mate ?mm)(medie-chimie ?mc))
        (test (and(>= ?mm 8)(>= ?mc 9)))
 
=>
(printout t "Elevul " ?n " se poate inscrie la fac de Chimie! " crlf)
)

(run)
(printout t "--------------------------------------------" crlf)
(defrule Sport
   (Elev (nume ?n)(medie-sport ?ms))
        (test (>= ?ms 8))
 
=>
(printout t "Elevul " ?n " se poate inscrie la fac de Sport! " crlf)
)

(run)
(printout t "--------------------------------------------" crlf)
(defrule Litere
   (Elev (nume ?n)(medie-romana ?mr)(medie-engleza ?me))
        (test (and(>= ?mr 8)(>= ?me 9)))
 
=>
(printout t "Elevul " ?n " se poate inscrie la fac de Litere! " crlf)
)

(run)
(printout t "--------------------------------------------" crlf)

